home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / ex2.gui < prev    next >
Encoding:
Text File  |  1998-04-23  |  591 b   |  19 lines
  1. #
  2. # Example 2: Making a menu
  3. #
  4.         MakeMenu ( file, "File" )
  5.            MakeMenuItem(   open, file, "Open",     Load, "open")
  6.            MakeMenuItem(sdfopen, file, "SDF Open", Load, "sdfopen")
  7.  
  8.         MakeButton( var,     "Var",     VarSel,  NULL )
  9.         MakeButton( display, "Display", Display, "display" )
  10.         MakeButton( quit,    "Quit",    Cmd,     "quit" )
  11.  
  12.         SetWidgetPos(var,     NO_CARE, NULL, PLACE_RIGHT, file)
  13.         SetWidgetPos(display, NO_CARE, NULL, PLACE_RIGHT, var)
  14.         SetWidgetPos(quit,    NO_CARE, NULL, PLACE_RIGHT, display)
  15.  
  16.         MainLoop()
  17.  
  18.  
  19.